Filename | (eval 1151)[/usr/share/perl/5.10/CGI.pm:869] |
Statements | Executed 4 statements in 24µs |
Eval Invoked At | /usr/share/perl/5.10/CGI.pm line 869 |
Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 23µs | 30µs | cache | CGI::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # spent 30µs (23+7) within CGI::cache which was called:
# once (23µs+7µs) by CGI::header at line 832 of CGI.pm | ||||
2 | 1 | 15µs | 1 | 7µs | my($self,$new_value) = self_or_default(@_); # spent 7µs making 1 call to CGI::self_or_default |
3 | 1 | 1µs | $new_value = '' unless $new_value; | ||
4 | 1 | 500ns | if ($new_value ne '') { | ||
5 | $self->{'cache'} = $new_value; | ||||
6 | } | ||||
7 | 1 | 7µs | return $self->{'cache'}; | ||
8 | } | ||||
9 | |||||
10 | ; |